File:of Disk: Disks/PDP8-Net/disk2-fortran
(Source file text)
X EXTERN #RSVO TRAP3 #RSVO FSTA IRACE EXTERN #RSVO TRAP3 #RSVO FSTA ITON EXTERN #RSVO TRAP3 #RSVO FSTA IFIELD EXTERN #RSVO TRAP3 #RSVO FSTA IBIO FLDA #LIT+0011 FSTA I #G0022, FLDA I ATX 7 EXTERN #RSVO TRAP3 #RSVO FSTA IDIAG-0003,7 FLDA I FADD #LIT+0003 FSTA I FSUB #LIT+0017 JLE #G0022 FLDA #LIT+0003 ATX 7 EXTERN #RSVO TRAP3 #RSVO FSTA MGMT-0003,7 FLDA #LIT+0003 FMUL #LIT+0011 FADD #LIT+0003 ATX 6 EXTERN #RSVO TRAP3 #RSVO FSTA DRUG-0014,6 FLDA #LIT+0006 FMUL #LIT+0011 FADD #LIT+0003 ATX 5 EXTERN #RSVO TRAP3 #RSVO FSTA DRUG-0014,5 FLDA #LIT+0003 FMUL #LIT+0011 FADD #LIT+0006 ATX 4 EXTERN #RSVO TRAP3 #RSVO FSTA DRUG-0014,4 FLDA #LIT+0006 FMUL #LIT+0011 FADD #LIT+0006 ATX 3 EXTERN #RSVO TRAP3 #RSVO FSTA DRUG-0014,3 FLDA #LIT+0003 FMUL #LIT+0011 FADD #LIT+0011 ATX 2 EXTERN #RSVO TRAP3 #RSVO FSTA DRUG-0014,2 FLDA #LIT+0006 FMUL #LIT+0011 FADD #LIT+0011 ATX 1 EXTERN #RSVO TRAP3 #RSVO FSTA DRUG-0014,1 EXTERN #RENDO TRAP3 #RENDO LDX 0066,0 FLDA EOF FSUB #LIT+0000 EXTERN #NE JSA #NE FSTA